home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / rxcalc.zip / POWER.CAL < prev    next >
Text File  |  1993-03-01  |  486b  |  10 lines

  1. /* Rexx Calculator remainder processor */
  2. parse arg left, right                  /* get the two operands       */
  3. numeric digits CalcPrecision()         /* set current precision      */
  4. numeric form value CalcForm()          /* set current form           */
  5.  
  6. if \datatype(right,'Whole')            /* if not a whole number      */
  7.   then return 'Error'                  /* return error indicator     */
  8.  
  9. return left ** right                   /* return result              */
  10.